Решение к заданию 1:

Итоговый код для вашей процедуры может быть таким:

Public Sub IfThenSubAnswer()

Dim nResult As Integer

nResult = MsgBox("Нажмите кнопку", vbYesNo, "Окно сообщения")

If nResult = 6 Then

sResult = "Да"

ElseIf nResult = 7 Then

sResult = "Нет"

Else

sResult = "Неизвестная кнопка"

End If

ThisWorkbook.Worksheets(1).Range("A1").Value = "Вы нажали кнопку: " & sResult

ThisWorkbook.Worksheets(1).Range("A1").Columns.AutoFit

End Sub

Решение к заданию 2:

Итоговый код для вашей процедуры может быть таким:

Private Sub SelectCaseAnswer ()

nResult = MsgBox("Нажмите кнопку", vbAbortRetryIgnore , "Окно сообщения")

Select Case nResult

Case 3

sResult = "Отменить"

Case 4

sResult = "Повторить"

Case 5

sResult = "Пропустить"

Case Else

sResult = "Неизвестная кнопка"

End Select

ThisWorkbook.Worksheets(1).Range("A1").Value = "Вы нажали кнопку: " & sResult

ThisWorkbook.Worksheets(1).Range("A1").Columns.AutoFit

End Sub

Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)